Imports System.Data
Imports System.Data.SqlClient
Imports MyClasses

Public Class CPatientSale
    Private _intPatientID As Integer
    Private _intItemID As Integer
    Private _strBatchNo As String
    Private _intQuantity As Integer

    Private _dblSaleDate As Date
    Private _strStatus As String

    Public Property PatientID() As Integer
        Get
            Return _intPatientID
        End Get
        Set(ByVal value As Integer)
            _intPatientID = value
        End Set
    End Property

    Public Property ItemID() As Integer
        Get
            Return _intItemID
        End Get
        Set(ByVal value As Integer)
            _intItemID = value
        End Set
    End Property

    Public Property CLRcode() As String
        Get
            Return _strBatchNo
        End Get
        Set(ByVal value As String)
            _strBatchNo = value
        End Set
    End Property

    Public Property Quantity() As Integer
        Get
            Return _intQuantity
        End Get
        Set(ByVal value As Integer)
            _intQuantity = value
        End Set
    End Property


    Public Property SaleDate() As Date
        Get
            Return _dblSaleDate
        End Get
        Set(ByVal value As Date)
            _dblSaleDate = value
        End Set
    End Property

    Public Property Status() As String
        Get
            Return _strStatus
        End Get
        Set(ByVal value As String)
            _strStatus = value
        End Set
    End Property

End Class
